home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / art1webr.igb < prev    next >
Text File  |  1993-08-23  |  2KB  |  75 lines
  1. inst4.1     !Sept 1, 1992
  2. !****************************************************************
  3. !*                                *
  4. !*    ART1 Weber Law                        *
  5. !*                                *
  6. !****************************************************************
  7. !
  8.  
  9. @LLsl                !Load super-layer
  10. =n0    Lpes            !Number of layers
  11. =LayN    0
  12.  
  13. :F1Lp
  14. +LayN    1            !next layer
  15. ?LayN    n0
  16. >bgt    WLEnd            !past output layer
  17. @LLly                !load the layer
  18. ?Llrn    "ART 1"            !is this an ART layer?
  19. >bne    F1Lp            !no, try again
  20. ?Lcmp    "Direct"        !is this F1 layer?
  21. >bne    WLEnd            !F1 should come before F2 layer
  22. =n2    Lpes
  23. =NPEl    LayN            !Near layer
  24. =n4    LDnr            !#rows
  25.  
  26. :F2Lp
  27. +LayN    1            !next layer
  28. ?LayN    n0
  29. >bgt    WLEnd            !past output layer
  30. @LLly                !load the layer
  31. ?Llrn    "ART 1"            !is this an ART layer?
  32. >bne    F2Lp            !no, try again
  33. ?Lcmp    "Direct"        !is this F1 layer?
  34. >beq    WLEnd            !F2 layer is not direct output
  35. =n3    Lpes
  36. =SPEl    LayN            !Selected layer
  37.  
  38. ! Add probe
  39. =PNam    "F1F2"            !probe name
  40. @PbAS                !Add Probe
  41. @PbDC                !Delete all components
  42. @PAAC                !Active component
  43.  
  44. ! Now build the instrument
  45. @ILdD                !load default instrument
  46. =ITit    "Weber Law"        !Instrument title
  47. =IGTy    "Hinton"        !Graph Type
  48. =IGVr    "Weight"        !Variable
  49. =ITTy    "RMS"            !RMS Transformation Type
  50. =ITMd    0            !No transformation
  51. =IEpc    0            !No epoch
  52.  
  53. =n0    n2            !#PEs in F1 layer
  54. =n1    n4            !#rows in display
  55.  
  56. ! standard bar graph parameters
  57. #Incl    "barparms.iif"
  58.  
  59. =Ivmn    0.0
  60. =Ivmx    0.2
  61. =ILnA    1            !Active in Learn
  62. =IRcA    1            !Active in recall
  63. =ILDv    1            !Every iteration
  64. =ILRm    0
  65. =IRDv    0
  66. =IRRm    0
  67. =IPrb    PNam            !Point to probe
  68. =ICAc    0            !Convergence criterion inactive
  69. =ICTh    0.0            !Convergence Threshold
  70. !Let NeuralWorks figure out where to put instrument
  71. =x    0
  72. =y    0
  73. @IAdd                !Now create instrument
  74. :WLEnd
  75.